/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / PowerD / powerd / modules.lha / modules / graphics / gfxmacros.b

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 44 4d 4f 44 00 00 00 12 | 23 64 65 66 00 14 00 20 |DMOD....|#def... |
|00000010| 00 00 00 90 00 00 03 a6 | 04 0a 00 1a 00 02 00 02 |........|........|
|00000020| 00 02 00 01 01 08 00 17 | 00 01 01 04 00 12 00 01 |........|........|
|00000030| 03 05 00 14 00 01 00 01 | 00 01 03 05 00 15 00 01 |........|........|
|00000040| 00 01 00 01 02 05 00 14 | 00 01 00 01 04 0a 00 1a |........|........|
|00000050| 00 02 00 02 00 02 00 01 | 01 07 00 11 00 02 00 0a |........|........|
|00000060| 00 20 00 09 00 21 00 0a | 00 21 00 09 00 22 00 0b |. ...!..|.!..."..|
|00000070| 00 21 00 0a 00 21 02 10 | 00 40 00 01 00 01 02 11 |.!...!..|.@......|
|00000080| 00 57 00 01 00 01 02 08 | 00 0b 00 01 00 01 02 07 |.W......|........|
|00000090| 00 23 00 01 00 01 03 07 | 00 1e 00 01 00 01 00 01 |.#......|........|
|000000a0| 02 07 00 33 00 01 00 01 | 41 72 65 61 43 69 72 63 |...3....|AreaCirc|
|000000b0| 6c 65 00 72 70 00 63 78 | 00 63 79 00 72 00 41 72 |le.rp.cx|.cy.r.Ar|
|000000c0| 65 61 45 6c 6c 69 70 73 | 65 28 72 70 2c 63 78 2c |eaEllips|e(rp,cx,|
|000000d0| 63 79 2c 72 2c 72 29 3b | 00 42 4e 44 52 59 4f 46 |cy,r,r);|.BNDRYOF|
|000000e0| 46 00 77 00 28 77 29 2e | 46 6c 61 67 73 26 3d 7e |F.w.(w).|Flags&=~|
|000000f0| 41 52 45 41 4f 55 54 4c | 49 4e 45 00 43 45 4e 44 |AREAOUTL|INE.CEND|
|00000100| 00 63 00 43 57 41 49 54 | 28 63 2c 31 30 30 30 30 |.c.CWAIT|(c,10000|
|00000110| 2c 32 35 35 29 00 43 57 | 41 49 54 00 63 00 61 00 |,255).CW|AIT.c.a.|
|00000120| 62 00 43 57 61 69 74 28 | 63 2c 61 2c 62 29 43 42 |b.CWait(|c,a,b)CB|
|00000130| 75 6d 70 28 63 29 00 43 | 4d 4f 56 45 00 63 00 61 |ump(c).C|MOVE.c.a|
|00000140| 00 62 00 43 4d 6f 76 65 | 28 63 2c 26 61 2c 62 29 |.b.CMove|(c,&a,b)|
|00000150| 43 42 75 6d 70 28 63 29 | 00 43 49 4e 49 54 00 63 |CBump(c)|.CINIT.c|
|00000160| 00 6e 00 55 43 6f 70 70 | 65 72 4c 69 73 74 49 6e |.n.UCopp|erListIn|
|00000170| 69 74 28 63 2c 6e 29 00 | 44 72 61 77 43 69 72 63 |it(c,n).|DrawCirc|
|00000180| 6c 65 00 72 70 00 63 78 | 00 63 79 00 72 00 44 72 |le.rp.cx|.cy.r.Dr|
|00000190| 61 77 45 6c 6c 69 70 73 | 65 28 72 70 2c 63 78 2c |awEllips|e(rp,cx,|
|000001a0| 63 79 2c 72 2c 72 29 3b | 00 47 65 74 4f 50 65 6e |cy,r,r);|.GetOPen|
|000001b0| 00 72 70 00 47 65 74 4f | 75 74 6c 69 6e 65 50 65 |.rp.GetO|utlinePe|
|000001c0| 6e 28 72 70 29 00 4f 46 | 46 5f 56 42 4c 41 4e 4b |n(rp).OF|F_VBLANK|
|000001d0| 00 63 75 73 74 6f 6d 2e | 69 6e 74 65 6e 61 3a 3d |.custom.|intena:=|
|000001e0| 42 49 54 43 4c 52 7c 49 | 4e 54 46 5f 56 45 52 54 |BITCLR|I|NTF_VERT|
|000001f0| 42 00 4f 4e 5f 56 42 4c | 41 4e 4b 00 09 63 75 73 |B.ON_VBL|ANK..cus|
|00000200| 74 6f 6d 2e 69 6e 74 65 | 6e 61 3a 3d 42 49 54 53 |tom.inte|na:=BITS|
|00000210| 45 54 7c 49 4e 54 46 5f | 56 45 52 54 42 00 4f 46 |ET|INTF_|VERTB.OF|
|00000220| 46 5f 53 50 52 49 54 45 | 00 63 75 73 74 6f 6d 2e |F_SPRITE|.custom.|
|00000230| 64 6d 61 63 6f 6e 3a 3d | 42 49 54 43 4c 52 7c 44 |dmacon:=|BITCLR|D|
|00000240| 4d 41 46 5f 53 50 52 49 | 54 45 00 4f 4e 5f 53 50 |MAF_SPRI|TE.ON_SP|
|00000250| 52 49 54 45 00 09 63 75 | 73 74 6f 6d 2e 64 6d 61 |RITE..cu|stom.dma|
|00000260| 63 6f 6e 3a 3d 42 49 54 | 53 45 54 7c 44 4d 41 46 |con:=BIT|SET|DMAF|
|00000270| 5f 53 50 52 49 54 45 00 | 4f 46 46 5f 44 49 53 50 |_SPRITE.|OFF_DISP|
|00000280| 4c 41 59 00 63 75 73 74 | 6f 6d 2e 64 6d 61 63 6f |LAY.cust|om.dmaco|
|00000290| 6e 3a 3d 42 49 54 43 4c | 52 7c 44 4d 41 46 5f 52 |n:=BITCL|R|DMAF_R|
|000002a0| 41 53 54 45 52 00 4f 4e | 5f 44 49 53 50 4c 41 59 |ASTER.ON|_DISPLAY|
|000002b0| 00 63 75 73 74 6f 6d 2e | 64 6d 61 63 6f 6e 3a 3d |.custom.|dmacon:=|
|000002c0| 42 49 54 53 45 54 7c 44 | 4d 41 46 5f 52 41 53 54 |BITSET|D|MAF_RAST|
|000002d0| 45 52 00 53 61 66 65 53 | 65 74 57 72 69 74 65 4d |ER.SafeS|etWriteM|
|000002e0| 61 73 6b 00 77 00 6d 00 | 49 46 20 47 66 78 42 61 |ask.w.m.|IF GfxBa|
|000002f0| 73 65 2e 4c 69 62 4e 6f | 64 65 2e 56 65 72 73 69 |se.LibNo|de.Versi|
|00000300| 6f 6e 3c 33 39 28 77 29 | 2e 4d 61 73 6b 3a 3d 28 |on<39(w)|.Mask:=(|
|00000310| 6d 29 45 4c 53 45 20 53 | 65 74 57 72 69 74 65 4d |m)ELSE S|etWriteM|
|00000320| 61 73 6b 28 77 2c 6d 29 | 00 53 61 66 65 53 65 74 |ask(w,m)|.SafeSet|
|00000330| 4f 75 74 6c 69 6e 65 50 | 65 6e 00 77 00 63 00 49 |OutlineP|en.w.c.I|
|00000340| 46 20 47 66 78 42 61 73 | 65 2e 4c 69 62 4e 6f 64 |F GfxBas|e.LibNod|
|00000350| 65 2e 56 65 72 73 69 6f | 6e 3c 33 39 28 77 29 2e |e.Versio|n<39(w).|
|00000360| 41 4f 6c 50 65 6e 3a 3d | 63 28 77 29 2e 46 6c 61 |AOlPen:=|c(w).Fla|
|00000370| 67 73 7c 3d 41 52 45 41 | 4f 55 54 4c 49 4e 45 45 |gs|=AREA|OUTLINEE|
|00000380| 4c 53 45 20 53 65 74 4f | 75 74 6c 69 6e 65 50 65 |LSE SetO|utlinePe|
|00000390| 6e 28 77 2c 63 29 00 53 | 65 74 57 72 4d 73 6b 00 |n(w,c).S|etWrMsk.|
|000003a0| 77 00 6d 00 28 77 29 2e | 4d 61 73 6b 3a 3d 6d 00 |w.m.(w).|Mask:=m.|
|000003b0| 53 65 74 4f 50 65 6e 00 | 77 00 63 00 28 77 29 2e |SetOPen.|w.c.(w).|
|000003c0| 41 4f 6c 50 65 6e 3a 3d | 63 28 77 29 2e 46 6c 61 |AOlPen:=|c(w).Fla|
|000003d0| 67 73 7c 3d 41 52 45 41 | 4f 55 54 4c 49 4e 45 00 |gs|=AREA|OUTLINE.|
|000003e0| 53 65 74 41 66 50 74 00 | 77 00 70 00 6e 00 28 77 |SetAfPt.|w.p.n.(w|
|000003f0| 29 2e 41 72 65 61 50 74 | 72 6e 3a 3d 70 28 77 29 |).AreaPt|rn:=p(w)|
|00000400| 2e 41 72 65 61 50 74 53 | 7a 3a 3d 6e 00 53 65 74 |.AreaPtS|z:=n.Set|
|00000410| 44 72 50 74 00 77 00 70 | 00 28 77 29 2e 4c 69 6e |DrPt.w.p|.(w).Lin|
|00000420| 65 50 74 72 6e 3a 3d 70 | 28 77 29 2e 46 6c 61 67 |ePtrn:=p|(w).Flag|
|00000430| 73 7c 3d 46 52 53 54 5f | 44 4f 54 28 77 29 2e 6c |s|=FRST_|DOT(w).l|
|00000440| 69 6e 70 61 74 63 6e 74 | 3a 3d 31 35 00 00       |inpatcnt|:=15..  |
+--------+-------------------------+-------------------------+--------+--------+